|
|
 |
|
|
|
|
82: 'Set LocalObject = Nothing
83: Exit Function
84: End If
85:
86: 'Delegate to private methods, where only one will be able
to process the message.
87:
88: Set LocalObject = argObject
89:
90: returns = increaseBalance(LocalObject)
91: If returns Then
92: adjustBalance = returns
93: Exit Function
94: Set LocalObject = Nothing
95: End If
96:
97: returns = decreaseBalance(LocalObject)
98: If returns Then
99: adjustBalance = returns
100: Exit Function
101: Set LocalObject = Nothing
102: End If
103:
104: End Function
105:
106:
107: Public Sub getAccountType()
108: End Sub
109:
110: Public Property Get ClassDebugID() As Variant
111: 'used when retrieving value of a property, on the right side
of an assignment.
112: 'Syntax: Debug.Print X.ClassDebugID
113: If IsObject(mvarClassDebugID) Then
114: Set ClassDebugID = mvarClassDebugID
115: Else
116: ClassDebugID = mvarClassDebugID
117: End If
118: End Property
119:
120:
121: Private Property Get BankAccountProduct_ClassDebugID() As Variant
122: Const E_NOTIMPL = &H80004001
123:
124: End Property
125:
126: Private Function BankAccountProduct_getAccountType() As String
127: BankAccountProduct_getAccountType = m_pAccountType
128:
|
|
|
|
|
|